From 634020733da363219ed4d318b69c0235e42633a1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Tue, 28 Aug 2007 10:13:20 +0000 Subject: [PATCH] Qrtl is new. (parse_tool_bar_item): Handle :rtl keyword. (syms_of_keyboard): Intern :rtl keyword. --- src/keyboard.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/keyboard.c b/src/keyboard.c index c542d291b46..adbbbcf85dd 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -7907,10 +7907,11 @@ static Lisp_Object tool_bar_item_properties; static int ntool_bar_items; -/* The symbols `tool-bar', and `:image'. */ +/* The symbols `tool-bar', `:image' and `:rtl'. */ extern Lisp_Object Qtool_bar; Lisp_Object QCimage; +Lisp_Object Qrtl; /* Function prototypes. */ @@ -8196,6 +8197,9 @@ parse_tool_bar_item (key, item) /* Value is either a single image specification or a vector of 4 such specifications for the different button states. */ PROP (TOOL_BAR_ITEM_IMAGES) = value; + else if (EQ (key, Qrtl)) + /* ':rtl STRING' */ + PROP (TOOL_BAR_ITEM_RTL_IMAGE) = value; } /* If got a filter apply it on binding. */ @@ -11223,6 +11227,9 @@ syms_of_keyboard () staticpro (&Qhelp_echo); Qhelp_echo = intern ("help-echo"); + staticpro (&Qrtl); + Qrtl = intern (":rtl"); + staticpro (&item_properties); item_properties = Qnil; -- 2.30.2